perm filename ND.PSC[1,RWF] blob sn#728180 filedate 1983-09-27 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	program nd(output)
C00003 ENDMK
CāŠ—;
program nd(output);
var r,c:integer;
begin
for r:=0 to 10 do
   begin
   for c:=1 to 15 do
      if c<=5 then write('A')
      else if c>=11 then write('B')
      else if c >=6+r then write('C')
      else write('D');
   writeln
   end
end.